unit MainModule;

interface

uses
  uniGUIMainModule,
  SysUtils,
  Classes;

type
  TUniMainModule = class(TUniGUIMainModule)
  private
    { Private declarations }
    fUsrName, fUsrDeptName, fUsrImage, fusrCode, fusrEmail, fusrPhone: string;
    fUsrId, fUsrDeptId, fUsrType, fusrStatus: Integer;
  public
    { Public declarations }
  published
    property usrName: string read fUsrName write fUsrName;
    property usrDeptName: string read fUsrDeptName write fUsrDeptName;
    property usrImage: string read fUsrImage write fUsrImage;
    property usrCode: string read fusrCode write fusrCode;
    property usrEmail: string read fusrEmail write fusrEmail;
    property usrPhone: string read fusrPhone write fusrPhone;
    property usrId: Integer read fUsrId write fUsrId;
    property UsrDeptId: Integer read fUsrDeptId write fUsrDeptId;
    property usrType: Integer read fUsrType write fUsrType;
    property usrStatus: Integer read fusrStatus write fusrStatus;
  end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
  uniGUIVars,
  ServerModule,
  uniGUIApplication;

function UniMainModule: TUniMainModule;
begin
  Result := TUniMainModule(UniApplication.UniMainModule)
end;

initialization
  RegisterMainModuleClass(TUniMainModule);

end.

